home *** CD-ROM | disk | FTP | other *** search
- %CPSI Fixer Patch Begin
- /languagelevel where{pop languagelevel 2 ge}{false}ifelse
- {userdict begin
- /QRKclip33/clip load def
- /clip{{currentpoint}stopped not QRKclip33
- gsave newpath clippath pathbbox grestore
- newpath 4 1 roll 4 copy 4 2 roll exch moveto
- 6 -1 roll lineto lineto lineto closepath
- QRKclip33{moveto}if}def
- /QRKeoclip33/eoclip load def
- /eoclip{{currentpoint}stopped not QRKeoclip33
- gsave newpath clippath pathbbox grestore
- newpath 4 1 roll 4 copy 4 2 roll exch moveto
- 6 -1 roll lineto lineto lineto closepath
- QRKeoclip33{moveto}if}def
- end}if
- %End of Patch
-